home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / funcity / tokyo / rescue.dcr / 00043_ðøŸàžìÆ.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  1018 b   |  31 lines
  1. on movesonic
  2.   global gloch, gcursorh
  3.   set h to the mouseH
  4.   set the locH of sprite 34 to h
  5.   set gcursorh to h
  6.   if gloch <> h then
  7.     if gloch < h then
  8.       if the castNum of sprite 34 > the number of cast "Sonic-2" then
  9.         set the castNum of sprite 34 to the number of cast "Sonic-1"
  10.       else
  11.         if the castNum of sprite 34 > the number of cast "Sonic-1" then
  12.           set the castNum of sprite 34 to the number of cast "Sonic-3"
  13.         else
  14.           set the castNum of sprite 34 to the number of cast "Sonic-2"
  15.         end if
  16.       end if
  17.     else
  18.       if the castNum of sprite 34 < the number of cast "Sonic-2" then
  19.         set the castNum of sprite 34 to the number of cast "Sonic-3"
  20.       else
  21.         if the castNum of sprite 34 < the number of cast "Sonic-3" then
  22.           set the castNum of sprite 34 to the number of cast "Sonic-1"
  23.         else
  24.           set the castNum of sprite 34 to the number of cast "Sonic-2"
  25.         end if
  26.       end if
  27.     end if
  28.     set gloch to h
  29.   end if
  30. end
  31.